home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / WINER.ZIP / SHRTHERE.BAS < prev    next >
BASIC Source File  |  1992-05-13  |  706b  |  28 lines
  1. '*********** SHRTHERE.BAS - determines if SHARE.EXE is loaded
  2.  
  3. 'Copyright (c) 1992 Ethan Winer
  4.  
  5. 'NOTE: If you are running Windows version 3.1 Windows itself reports that
  6. '      SHARE is loaded and active.
  7.  
  8. DEFINT A-Z
  9. DECLARE FUNCTION ShareThere% ()
  10.  
  11. '$INCLUDE: 'REGTYPE.BI'
  12.  
  13.  
  14. PRINT "SHARE.EXE is ";
  15. IF NOT ShareThere% THEN PRINT "NOT ";
  16. PRINT "installed on this PC."
  17.  
  18. FUNCTION ShareThere% STATIC
  19.  
  20.   DIM Registers AS RegType
  21.   ShareThere% = -1              'assume Share is loaded
  22.   Registers.AX = &H1000         'service 10h
  23.   CALL Interrupt(&H2F, Registers, Registers)
  24.   AL = Registers.AX AND 255     'isolate the result in AL
  25.   IF AL <> &HFF THEN ShareThere% = 0
  26.  
  27. END FUNCTION
  28.